object OptionForm1: TOptionForm1 Left = 114 Top = 95 HorzScrollBar.Visible = False VertScrollBar.Visible = False ActiveControl = OkButton BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'User Preferences' ClientHeight = 432 ClientWidth = 517 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Position = poDefaultPosOnly Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 24 Top = 396 Width = 32 Height = 32 Hint = 'http://www.geocities.com/CapeCanaveral/9725' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True end object OkButton: TButton Left = 254 Top = 401 Width = 75 Height = 26 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 OnClick = OkButtonClick end object CancelButton: TButton Left = 346 Top = 401 Width = 75 Height = 26 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object PageControl: TPageControl Left = 4 Top = 8 Width = 508 Height = 385 ActivePage = FolderTab TabOrder = 0 OnChange = PageControlChange object GeneralTab: TTabSheet Caption = ' General ' object GeneralGroup: TGroupBox Left = 16 Top = 16 Width = 472 Height = 333 TabOrder = 0 object ImageLabel: TLabel Left = 285 Top = 25 Width = 182 Height = 19 AutoSize = False Caption = 'images at the same time' end object AskEdit: TEdit Left = 233 Top = 22 Width = 29 Height = 21 TabOrder = 1 Text = '5' OnChange = AskEditChange end object AskUpDown: TUpDown Left = 262 Top = 22 Width = 16 Height = 21 Associate = AskEdit Min = 1 Max = 1000 Position = 5 TabOrder = 10 Thousands = False Wrap = False end object CheckBox4: TCheckBox Left = 29 Top = 46 Width = 440 Height = 20 Caption = 'Ask before &moving image files when thumbnails are dragged' TabOrder = 2 end object CheckBox5: TCheckBox Left = 29 Top = 23 Width = 200 Height = 20 Caption = '&Ask before opening more than' TabOrder = 0 OnClick = CheckBox5Click end object PanelColourButton: TButton Left = 20 Top = 284 Width = 117 Height = 26 Caption = '&Panel Colour...' TabOrder = 8 OnClick = PanelColourButtonClick end object SelectionColourButton: TButton Left = 228 Top = 284 Width = 117 Height = 26 Caption = 'Selection &Colour...' TabOrder = 9 OnClick = SelectionColourButtonClick end object ColourPanel1: TPanel Left = 140 Top = 285 Width = 25 Height = 25 BevelOuter = bvLowered TabOrder = 11 end object ColourPanel2: TPanel Left = 348 Top = 285 Width = 25 Height = 25 BevelOuter = bvLowered TabOrder = 12 end object CheckBox2: TCheckBox Left = 29 Top = 69 Width = 440 Height = 20 Caption = 'Automatically &re-lay thumbnails when window is resized' TabOrder = 3 end object CheckBox1: TCheckBox Left = 29 Top = 91 Width = 440 Height = 20 Caption = 'Automatically &scroll to show new thumbnails' TabOrder = 4 end object CheckBox7: TCheckBox Left = 29 Top = 114 Width = 440 Height = 20 Caption = 'Show &tooltips' TabOrder = 5 end object CheckBox11: TCheckBox Left = 29 Top = 137 Width = 440 Height = 20 Caption = 'Confirm image file &deletion' TabOrder = 6 end object GroupBox1: TGroupBox Left = 20 Top = 163 Width = 353 Height = 94 TabOrder = 7 object CheckBox9: TCheckBox Left = 9 Top = 13 Width = 296 Height = 20 Caption = '&Label thumbnails using the following format:' TabOrder = 0 OnClick = CheckBox9Click end object LabelEdit: TEdit Left = 28 Top = 36 Width = 301 Height = 21 TabOrder = 1 end object ExampleButton1: TButton Left = 29 Top = 62 Width = 75 Height = 24 Caption = 'Example &1' TabOrder = 2 OnClick = ExampleButton1Click end object ExampleButton2: TButton Left = 142 Top = 62 Width = 75 Height = 24 Caption = 'Example &2' TabOrder = 3 OnClick = ExampleButton2Click end object ExampleButton3: TButton Left = 254 Top = 62 Width = 75 Height = 24 Caption = 'Example &3' TabOrder = 4 OnClick = ExampleButton3Click end end end end object FolderTab: TTabSheet Caption = ' Folder ' object FolderGroup: TGroupBox Left = 16 Top = 16 Width = 472 Height = 333 ParentShowHint = False ShowHint = False TabOrder = 0 object SortByRadioGroup: TRadioGroup Left = 20 Top = 148 Width = 441 Height = 101 Caption = ' Sort thumbnails by ' Columns = 3 ItemIndex = 11 Items.Strings = ( 'Image &width' 'Image &height' 'Image de&pth' 'Image a&rea' 'File &name' 'File e&xtension' 'File da&te' 'File &size' '&Colour temperature' 'Average &brightness' 'Aspect rati&o' 'Do not per&form sort') TabOrder = 9 OnClick = SortRadioGroupClick end object CheckBox3: TCheckBox Left = 29 Top = 23 Width = 296 Height = 20 Caption = 'Automatically update thumbnails' TabOrder = 0 OnClick = AnyClick end object SetDefaultsButton: TButton Left = 350 Top = 44 Width = 109 Height = 26 Caption = 'Set Defaults' TabOrder = 7 OnClick = SetDefaultsButtonClick end object SortDirRadioGroup: TRadioGroup Left = 20 Top = 261 Width = 297 Height = 49 Caption = ' Sort direction ' Columns = 2 ItemIndex = 0 Items.Strings = ( '&Ascending' '&Descending') TabOrder = 10 OnClick = SortRadioGroupClick end object SortNow: TButton Left = 350 Top = 275 Width = 109 Height = 26 Caption = 'Sort Now' TabOrder = 11 OnClick = SortNowClick end object UseDefaultsButton: TButton Left = 350 Top = 14 Width = 109 Height = 26 Caption = 'Use Defaults' TabOrder = 6 OnClick = UseDefaultsButtonClick end object CheckBox8: TCheckBox Left = 29 Top = 69 Width = 296 Height = 20 Caption = 'Automatically save thumbnails to browse file' TabOrder = 1 OnClick = AnyClick end object CheckBox12: TCheckBox Left = 29 Top = 91 Width = 296 Height = 20 Caption = 'Generate draft quality thumbnails (faster)' TabOrder = 3 end object ResetAllFoldersButton: TButton Left = 350 Top = 76 Width = 109 Height = 26 Caption = 'Reset All Folders' TabOrder = 8 OnClick = ResetAllFoldersButtonClick end object Panel3: TPanel Left = 284 Top = 109 Width = 181 Height = 37 BevelOuter = bvLowered TabOrder = 5 object ThumbnailSizeButton: TSpeedButton Left = 66 Top = 6 Width = 109 Height = 26 AllowAllUp = True GroupIndex = 1 Caption = 'Thumbnail Size' ParentShowHint = False ShowHint = False OnClick = ThumbnailSizeButtonClick end object SizeEdit: TEdit Left = 5 Top = 8 Width = 41 Height = 21 ParentShowHint = False ShowHint = False TabOrder = 0 Text = '0' OnChange = SizeEditChange end object UpDown: TUpDown Left = 46 Top = 8 Width = 16 Height = 21 Associate = SizeEdit Min = 0 Max = 10000 ParentShowHint = False Position = 0 ShowHint = False TabOrder = 1 Thousands = False Wrap = False OnChanging = UpDownChanging end end object CheckBox10: TCheckBox Left = 29 Top = 114 Width = 252 Height = 20 Caption = 'Enable dithering' TabOrder = 4 end object CheckBox6: TCheckBox Left = 29 Top = 46 Width = 180 Height = 20 Caption = 'Display additional file types:' TabOrder = 2 OnClick = CheckBox6Click end object TypeEdit: TEdit Left = 224 Top = 46 Width = 121 Height = 21 TabOrder = 12 end end end object JpegTab: TTabSheet Caption = 'JPEG' object Label3: TLabel Left = 224 Top = 8 Width = 269 Height = 85 AutoSize = False Caption = 'Set the encoding method and amount of compression that you want ' + 'to use when creating JPEG files of your thumbnail collection. Th' + 'ese settings also affect the thumbnails displayed in the browser' + '.' WordWrap = True end object QualityGroup: TGroupBox Left = 16 Top = 92 Width = 472 Height = 257 Caption = ' Compression and image quality ' TabOrder = 0 object Label1: TLabel Left = 344 Top = 183 Width = 117 Height = 22 Alignment = taCenter AutoSize = False Caption = 'Smallest file' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = 14 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True WordWrap = True end object Label2: TLabel Left = 22 Top = 183 Width = 107 Height = 22 Alignment = taCenter AutoSize = False Caption = 'Highest quality' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = 14 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True WordWrap = True end object Label4: TLabel Left = 46 Top = 233 Width = 43 Height = 25 AutoSize = False Caption = '0%' Transparent = True end object Label5: TLabel Left = 376 Top = 233 Width = 46 Height = 25 Alignment = taRightJustify AutoSize = False Caption = '100%' Transparent = True end object c: TLabel Left = 8 Top = 64 Width = 79 Height = 49 Alignment = taCenter AutoSize = False Caption = 'Example of original image quality:' Transparent = True WordWrap = True end object Label6: TLabel Left = 243 Top = 64 Width = 79 Height = 49 Alignment = taCenter AutoSize = False Caption = 'Preview of compressed image quality:' Transparent = True WordWrap = True end object Label7: TLabel Left = 199 Top = 233 Width = 73 Height = 25 Alignment = taCenter AutoSize = False Caption = '50%' Transparent = True end object Bevel1: TBevel Left = 234 Top = 12 Width = 4 Height = 157 Shape = bsLeftLine end object TrackBar: TTrackBar Left = 41 Top = 205 Width = 389 Height = 22 Max = 50 Orientation = trHorizontal Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 0 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBarChange end object SrcePanel: TPanel Left = 85 Top = 28 Width = 142 Height = 130 BevelOuter = bvLowered TabOrder = 2 end object JpegEdit: TEdit Left = 222 Top = 178 Width = 27 Height = 21 TabOrder = 1 OnChange = JpegEditChange end object DestPanel: TPanel Left = 321 Top = 29 Width = 142 Height = 130 BevelOuter = bvLowered TabOrder = 3 end end object EncodingRadioGroup: TRadioGroup Left = 16 Top = 16 Width = 193 Height = 61 Caption = ' Encoding method ' Columns = 2 ItemIndex = 0 Items.Strings = ( '&Standard' '&Progressive') TabOrder = 1 end end object ApplicationsTab: TTabSheet Caption = 'Applications' object Label8: TLabel Left = 44 Top = 8 Width = 405 Height = 77 AutoSize = False Caption = 'Add your own applications to this list and they will appear in t' + 'he '#39'Open With'#39' menus. The first application in the list will be ' + 'the one that is launched by the '#39'Open'#39' command or when you doubl' + 'e-click on a thumbnail.' Transparent = True WordWrap = True end object DownTool: TToolbarButton97 Left = 456 Top = 224 Width = 23 Height = 22 Hint = 'Move item down the list' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000C2500400FA64 000000FF0000FFD6BB0000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000222222222222 2222222222202222222222222211022222222222211110222222222211111102 2222222111110000222222222211022222222222221102222222222222110222 2222222222110222222222222211022222222222221102222222222222110222 2222222222110222222222222211022222222222222222222222} ParentShowHint = False ShowHint = True OnClick = DownToolClick end object UpTool: TToolbarButton97 Left = 424 Top = 224 Width = 23 Height = 22 Hint = 'Move item up the list' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000C2500400FA64 000000FF0000FFD6BB0000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000222222222222 2222222222110222222222222211022222222222221102222222222222110222 2222222222110222222222222211022222222222221102222222222222110222 2222222222110222222222211111000022222222111111022222222221111022 2222222222110222222222222220222222222222222222222222} ParentShowHint = False ShowHint = True OnClick = UpToolClick end object AddButton: TButton Left = 412 Top = 88 Width = 83 Height = 25 Caption = '&Add...' TabOrder = 1 OnClick = AddButtonClick end object ModifyButton: TButton Left = 412 Top = 120 Width = 83 Height = 25 Caption = 'M&odify...' TabOrder = 2 OnClick = ModifyButtonClick end object RemoveButton: TButton Left = 412 Top = 152 Width = 83 Height = 25 Caption = '&Remove' TabOrder = 3 OnClick = RemoveButtonClick end object LaunchNowButton: TButton Left = 412 Top = 184 Width = 83 Height = 25 Caption = '&Launch Now' TabOrder = 4 OnClick = LaunchNowButtonClick end object StringGrid: TStringGrid Left = 5 Top = 88 Width = 398 Height = 261 ColCount = 3 DefaultColWidth = 198 DefaultRowHeight = 16 RowCount = 15 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goEditing] TabOrder = 0 OnSelectCell = StringGridSelectCell OnSetEditText = StringGridSetEditText ColWidths = ( 19 120 251) end end end object HelpButton: TButton Left = 437 Top = 401 Width = 75 Height = 26 Caption = 'Help' TabOrder = 3 OnClick = HelpButtonClick end object ColorDialog: TColorDialog Ctl3D = True Options = [cdFullOpen, cdShowHelp, cdAnyColor] Left = 113 Top = 388 end object Timer1: TTimer Enabled = False Interval = 250 OnTimer = Timer1Timer Left = 176 Top = 388 end object OpenDialog: TOpenDialog DefaultExt = 'exe' FileEditStyle = fsEdit Filter = 'Executable files (*.exe)|*.exe|All files (*.*)|*.*' FilterIndex = 0 Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Choose application file' Left = 448 Top = 300 end object Timer2: TTimer Interval = 10 OnTimer = Timer2Timer Left = 216 Top = 388 end end